home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inventor Labs: Transportation
/
InventorLabs - Transportation.iso
/
mac
/
Builders
/
media
/
netacess
/
hminet.dir
/
00032_Script_32
< prev
next >
Wrap
Text File
|
1997-04-04
|
878b
|
32 lines
on enterFrame
set the text of cast "Status" to "Launch to URL"
end
on exitFrame
global WebBrowser
--
-- use this handler only if
-- the browser is not AOL
set URL to the text of cast "theURL"
if the machineType = 256 then
set WebError = WebBrowser(mOpenURL,URL,"","")
else
set error = Browser("OpenURL",URL )
put "URL sent" into cast "status"
-- low memory error
if error = 7 then
alert "You do not have enough RAM to run this program and begin Internet access simultaneously. To go online, quit this program to free up memory. Double-click on the Share the Spirit icon from The Polar Express folder on your hard drive."
go "Start"
else if error <> 0 then
put error into cast "status"
alert "Unexpected browser error: " error
go "Start"
end if
end if
end